home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.04 Apr 87 / MPW macros / doControl < prev    next >
Encoding:
Text File  |  1987-01-26  |  1.1 KB  |  52 lines  |  [TEXT/MPS ]
  1. #    This interactively builds a 'CNTL' rez definition
  2. #    Frank Alviani  -  Monday, December 8, 1986 1:33:54 PM
  3.  
  4. set exit 0        #so 'cancel' buttons not fatal
  5. echo "∂/* `request 'Purpose:'` *∂/"
  6. "{MPW}macros:getResAttrs" CNTL
  7. set p `request 'Type: <B>tn|<C>heckbox|<R>adio|<S>roll (+<F>ont)'`
  8. set rr "`request 'BoundRect? (t,l,b,r)'`"
  9. set val `request -d 0 'Value?'`
  10. set min `request -d 0 'Minimum?'`
  11. set max `request -d 0 'Maximum?'`
  12. confirm 'Visible?'
  13. if {status} == 0
  14.     set vis "visible"
  15. else
  16.     set vis "invisible"
  17. end
  18. set ref `request -d 0 'Reference Constant?'`
  19. set ttl `request -d x 'Title?'`
  20.  
  21. #determine type
  22. if {p} =~ /[Bb]≈/
  23.     set ctyp "pushButProc" 
  24. else
  25.     if {p} =~ /[Cc]≈/
  26.         set ctyp "checkBoxProc"
  27.     else
  28.         if {p} =~ /[Rr]≈/
  29.             set ctyp "radioButProc"
  30.         else
  31.             if {p} =~ /[Ss]≈/
  32.                 set ctyp "scrollBarProc"
  33.             end
  34.         end
  35.     end
  36. end
  37.  
  38. echo "  ∂{{rr}∂},"
  39. echo "  {val},∂t∂/* value *∂/"
  40. echo "  {vis},"
  41. echo "  {max},∂t∂/* max *∂/"
  42. echo "  {min},∂t∂/* min *∂/"
  43. echo -n "  {ctyp}"
  44. if {p} =~ /≈[Ff]≈/
  45.     echo "UseWFont,∂t∂/* type *∂/"
  46. else
  47.     echo ",∂t∂/* type *∂/"
  48. end
  49. echo "  {ref},∂t∂/* refcon *∂/"
  50. echo "  ∂"{ttl}∂""
  51. echo "∂};"
  52.